home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / AppleScript / Additions / MacPPP Control 1.2 / Close PPP < prev    next >
Encoding:
Text File  |  1994-03-07  |  315 b   |  11 lines  |  [TEXT/ToyS]
  1. --
  2. --    This example script uses the MacPPP Control addition to close the PPP
  3. --    link.  Running this script is identical to opening the MacPPP control
  4. --    panel and pressing the Hard Close button.
  5. --
  6.  
  7. if PPPopened then
  8.     closePPP
  9. else
  10.     display dialog "MacPPP is already closed" buttons {"OK"} default button "OK"
  11. end if